home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / b to xx32.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 0 rem the transactor volume 6 issue 02        bits & pieces section
  2. 10 rem save"0:b to xx32.bas",8
  3. 20 rem -- for bits and pieces volume 6 issue 02
  4. 30 :
  5. 100 rem ** change b-128 program to run on 80/4032
  6. 110 rem ** jack weaver    input systems, inc.
  7. 120 rem ** 15600 palmetto lake dr.  miami fl 33157
  8. 130 rem ** phone (305) 252-1550
  9. 140 :
  10. 150 cu$=chr$(145): cd$=chr$(17): cl$=chr$(157): ry$=chr$(18): rn$=chr$(146)
  11. 160 c$=chr$(0)
  12. 170 open 15,8,15,"i0
  13. 180 [150] [165] r(x)[178](b2[172]256[170]b1)[170]1022
  14. 190 [215] d0
  15. 200 [153] cu$;ry$;"name of b-128 prog to change"rn$" ";
  16. 210 [133] of$
  17. 220 [153] cd$"new name of the 80/4032 program ";
  18. 230 [133] nf$
  19. 240 [153] "b-128 prg = "ry$;of$: [153] "80/4032 prg = "ry$;nf$
  20. 250 [153] cd$;cd$"(NULL)(NULL)  (y/n)  n"cl$;cl$;cl$;
  21. 260 [133] yn$
  22. 270 [139] yn$[179][177]"y" [167] [144]
  23. 280 a[178]1025: [159] 4,8,4,of$: [139] ds [167] [153] ds$: [144]
  24. 290 [161]#4,a$,b$: a1[178][198](a$[170]c$): a2[178][198](b$[170]c$): [139] a1[179][177]3 [167] [206]: [144]
  25. 300 [159] 5,8,5,"@0:"[170]nf$[170]",p,w": [139] ds [167] [153] ds$: [144]
  26. 310 [152]5,[199](1)[199](4);
  27. 320 [139] s [167] 390
  28. 330 [161]#4,a$,b$: b1[178][198](a$[170]c$): b2[178][198](b$[170]c$)
  29. 340 x[178][165] r(x): [139] x[178]1022 [167] s[178]1: [137] 390: [143] check for end of prg
  30. 350 hi[178][181](x[173]256): lo[178]x[171]hi[172]256: [153] ry$;a;rn$;b1;b2;x;lo;hi
  31. 360 a[178]a[170]2: [152]5,[199](lo)[199](hi);
  32. 370 [139] a[178]x [167] 320
  33. 380 a[178]a[170]1
  34. 390 [139] s [167] [152]5,c$;c$;c$;: [160]5: [160]4: [153] "converted !": [128]
  35. 400 [161]#4,a$: s[178]st: [152]5,[199]([198](a$[170]c$));
  36. 410 [137] 370
  37.